﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="注册参数配置"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;<a href='config.asp?sid=<%=sid%>'>网站配置</a>&gt;配置<br/>
==<b>注册参数配置</b>==<br/>
<%
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_config"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
%>
        注册系统自动送出<%=rs("bi")%><br/>
        <input format='*N' name="moerye<%=Runtxt%>" value="<%=rs("moerye")%>" maxlength="50" type="text"/><br/>
        注册系统自动发出的欢迎词<br/>
        <input emptyok="true" name="msg<%=Runtxt%>" value="<%=rs("msg")%>" maxlength="255" type="text"/><br/>
	<anchor>保存设置
    	<go href="config3.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="moerye" value="$(moerye<%=Runtxt%>:n)"/>
        <postfield name="msg" value="$(msg<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
<%
		end if
		rs.Close
		Set rs = Nothing
%>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim moerye,msg,errss,rs,sql
		moerye=TRim(Request.form("moerye"))
		msg=TRim(Request.form("msg"))
		if moerye="" then moerye=0

		if msg="" then errss=errss & "欢迎词不能为空<br/>"
%>
<card id="login" title="注册参数配置" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
	if errss="" then
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_config"
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
		rs("moerye")=moerye
		rs("msg")=msg
		rs.update()
%>
保存设置成功!<br/>
<%
                else
%>
保存设置失败!<br/>
<%   
		end if
		rs.Close
		Set rs = Nothing
	else
%>
		<%=errss%>
		<a href="config3.asp?sid=<%=sid%>">返回修改</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
